home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / indx18eu.zip / ASMROUTI.PAS < prev    next >
Pascal/Delphi Source File  |  1991-03-20  |  1KB  |  50 lines
  1. UNIT AsmRoutines ;
  2.  
  3.  
  4.                         INTERFACE
  5.  
  6.  
  7.  FUNCTION    HexStr ( VAR num                    ;
  8.                           numberOfBytes          : BYTE )
  9.                                                  : STRING ;
  10.  
  11.  PROCEDURE   Exchange ( VAR var1                 ;
  12.                         VAR var2                 ;
  13.                             count                : WORD ) ;
  14.  
  15.  FUNCTION    Compare ( VAR var1                  ;
  16.                        VAR var2                  ;
  17.                            strng                 : BOOLEAN ;
  18.                            count                 : WORD )
  19.                                                  : INTEGER ;
  20.  
  21.                       IMPLEMENTATION
  22.  
  23.  {$L HexStr.OBJ}
  24.  FUNCTION    HexStr ( VAR num                    ;
  25.                           numberOfBytes          : BYTE )
  26.                                                  : STRING ;
  27.    EXTERNAL ;
  28.  
  29.  
  30.  
  31.  
  32.  {$L XChange.OBJ}
  33.  PROCEDURE   Exchange ( VAR var1                 ;
  34.                         VAR var2                 ;
  35.                             count                : WORD ) ;
  36.    EXTERNAL ;
  37.  
  38.  
  39.  
  40.  {$L Compare.OBJ}
  41.  FUNCTION    Compare ( VAR var1                  ;
  42.                        VAR var2                  ;
  43.                            strng                 : BOOLEAN ;
  44.                            count                 : WORD )
  45.                                                  : INTEGER ;
  46.    EXTERNAL ;
  47.  
  48.  
  49.  
  50. END .